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ABSTRACT 
THE DNLL DIAGNOSTIC CONSISTS OF THO_PARTS. THE FIRST IS A 
Ri etna atteant sed HE BS ALTE on une 
BNE, TOS PEN ENS tre PSEe pa BrP ane CEN Bune ph oo 
HIS DISLING RANGE, UPON T COMPLETION OF T CALL THE PROGRAM 
WILL TERMINATE THE CALL AND TRY AGAIN. 

REQUIREMENTS 

EQUIPMENT 

S2Poit of MIN. 4K)-WITH OR WITHOUT A HARDWARE SWITCH REGISTER 

NI] (MAX.OF4 USED QT ONE ANY TIME) 

STORAGE 


OIALEX OCCUPIES THE FIRST 4K OF CORE. 
LOROING PROCEDURE 

METHOD OF LOROING DIALEX TAPE 
PROGRAM FORMAT ABSOLUTE 


R. VERIFY THE BOOT ,oRDEE IS IN MEMORY 
8. S&T SWITCH REGISTER EQURL TO #500 


MEMORY SIZE ~ 
Die / 
S« s7 
LEK rd 
25K 77 
ek 117 
ise 137 
2S 157 
¢. DEPRESS LORD ADDRESS 
D. DEPRESS START 








TARTING PROCEDURE 
Load sitiges 200 


5.2 
BR. f é as SWITCH REGISTER LOAOING- 
‘ n Ss. oF rare SWITCH REGISTER IS SELECTED THEN THE FOLLOWING 
TL 
SREXXXXXX NEW= (REFER TO SECTION 5.2 FOR OPTIONS) 


SCOPE LOOP STARTING PROCEDURE 


$ 
A. 
B. SET SWETCH REGISTER CORRESPONDING TD SEC 


2. LOAD 
371d ae nite & REGISTER EQUAL TO THE ADORESS 


w IIe 
. o 


. t peess ¢ CON 

eael> THE SOF Sane SWITCH REGISTER IS USED DEPRESS CONT 

THE MACHINE WILL THEN | ASK FOR SOFTWARE SWITCH REGIST 

Y a eh La TME FOLLOW SWREXXXXX NEWS (REFER TO 
SPERATOR SBS taNei ates 


RESTARTING AT LOC. 200 


RESTARTING AT LOC. 200 WILL AUTOMATICALLY USE THE ADDRES 
BNO VECTOR ENTERED | AT THE INITIAL START-U 

rT TS SeS2RED, T° ENTER 8 NEW AEORESS. UPON RESTART, 
ven ht ww i ION Lhe 37 sf 200. 


uw 


+ lw we 


Seoatt N aoe, euzt ys STER IS SELECTED 7 ye | J 
pperelun 8 0 LORD THE DNL oR SS AFTER DEPRESSING 
aE SWIT Ry es CORRESPOND TO SEC. 5.3 


STAR 


ad 


te 








uw 


OPERATING PROCEDURE 
AT THE INITIAL START OF THE PROGRAM THE OPERATOR WILL BE 


ASKED FOR THE ADDRESS OF THE FIRST ON11, AND ITS VECTOR ASSIGNMENT. 


weet. oe TB BME TEE REGISTER TS SELECTED THEN THE FOLLOWING 
SWREXXXXXX NEWS (REFER TO SECTION S$.2 FOR OPTIONS) 

DNil REGISTER ADDRESS ?XXXXxXx 

VECTOR ASSIGNMENT *XXX 

DIALING PROCEDURES 

THE OPERATOR Ate. LL BE rae FOR A PHONE NUMBER FOR EACH ON11, 


a Me ve Hist 
MAXIMUM NUNGER 1°S 1S REACHED FOR THE SYSTEM 


roe oeeee? Econ ee! wes Esp sp saReiect~ RETURN KEY WITHOUT 
PHONE $17 XXXXX 
PHONE 82° XXXXXX 
PHONE 837 XXXXXX 
PHONE 847 XXXXXX 


NOTE: 00 NOT TYPE <?tG> DURING THE INPUTING OF PHONE NUMBERS 
OF ERROR WILL OCCUR. 
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CONTROL SWITOM SETTINGS 


If THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SW Mite 
REGISTER ER THEN A SOFTWARE SW Ice H REGISTER 1S USE 
WITCH SPTIONS As 1 HAR ua oe FEGis TER. 
ha Haar E SAITCH SEGISIER DOES NOT EX] g 
O IT CONTAINS ALL SNES ( HEN T SP rise SWITCH 


REGISTER (LOC. 176) IS USED. 


CONTROL: 


THIS PROGRAM ALSS SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) Bs OM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE POLLING 


1) TYPE CONTROL G <¢G>; THIS WIL OW THE TTY ane ENTER DATA INTO 
LOC. 7% AT SELECTED ESTNTS WITHIN THE PROGR 


2) THE MACHINE WILL THEN TYPE: i mana (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER. ) 


3) AETER THE "*NEWS’* HAS BE . TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY 


A) TYPE A NUMBER TO BE LOADED INTC LOC. 176 FOLLOWED BY A <CR>. 
CONLY_NUMSERS SETWEEN O-7 WILL BE ACCEPTED AND ONLY & NUMBERS 
ae BE ALL ‘et 
IF @ <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


8) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK 70 STEP 2. 


NOTE: DUE TO_THE USE OF RESET INS 

CG) MORE THAN ONCE. THIS I 

THE LORDING OF THE TTY_RECEIVER BUFF 
DURING THE RESET EXCUTION. 


UCTION IT MAY BE NECESSARY TO DEPRESS 
CAU s3E BY THE RESET INSTRUCTION NOT ALLOWING 
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15 SETSHALT ON ERROR 
5 RESETSCONTINUE RAFTER REPORTING ERROR 


r] 
is SELES PRR STA CORR eles is tines. 


SETSDELET TYPE-OUT 
RESET= PORT EACH ERROR 


aD DD zy 


SETSTERMINATE CALL BY LOWERING CRO (CALL REQUEST) 
RESET=TERMINATE CALL BY ISSUING RESET 


Ts90} NEEDS EON TO COMPLETE CALL 
=EON NOT NEEDED TO COMPLETE BALL 


19 SET=LOOP ON ON-LINE TEST 

10 RESET=SEQUENCE THROUGH PROGRAM 
3 

3 

rg 
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SETSLOOP ON ALL STATIC TESTS 
RESET=SEQUENCE THROUGH PROGRAM 


SETSRUN STATIC TEST ON DN11 SELECTED BY SRO-i 
RESET=PROGRAM WILL SEQUENCE THROUGH ALL ONI1°S 


SETSDELETE TTY CONVERSATION FOR DIALING SEQUENCE 
RESETSENTER TTY CONVERSATION FOR DIALING SEQUENCE 


=SELECT ig FOR STATIC TEST 
a 2 bed ba ON1 


nw wn win nin = oo un nw un 


Da DA AA AA a a 


SR 
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5.3 SCOPE LOOP SWITCH SELECTION 
N THE SCOPE ngQOk THE . nay rit any oR ALL OF THE ONL} STATUS 
ae HE USER SETS THE 8275 
Broun ra tutor TICALLY N THE 
SSS SSREFE Fo MEAT Fons “rt = ano oe i ue SOFTWARE SWITCH REGISTER OPERATION#+## 
THE DETAILED DESCRIPTION OF DON11 STATUS SITS 
SIT NAME DESCRIPTION 


8) CALL REQUEST (FCRQ) CONTROL LEAD TO ACU. THIS BIT STARTS 
fa Be CALLING SEQUENCE. 





Cl DIGIT PRESENT (FDPR) Bi MUST Bes re SE ig 
v 
NE 


pce THE INTERFACE 
AUTOM TSALL i. THIS BIT 
WHEN THE ACU CLEARS PND _TO 
Tea oe er NCE OF THE OIGIT. 


o2 MASTER ENABLE (MINAB) eee THE PROGRAM TO DISABLE THEN 














OR ONLY ONE OF THE FOUR PO 
LINES 4 MOUNT IN ONE SYSTEM UNIT. 

(READ/WRITE) 
Us MRINTENANCE (MAINT) THIS BIT, WHEN SET, ALLOWS CHECKING 

OF we INTERFACE WETHOUT A CONNECTED 

ACU. IT ALLOWS FCRQ TO BE READ AND 

Si towes Mas ACU eo SE _LINES-- 

A ACR TO THE ay OF THE : 


brate SPENeS FOR TESTING PRP 
ory DIGIT ACU LINE CTL BIT 
08 N81 PND a 


sy 
0S NBe OSS FOSS OS 


7 NBY PUI PWO 13 
NBS ACR FACR 14 
ALSO FORCES one tT (TQ ACU) OFF AND 


(READ/WRITE) 
THIS IS 
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OS DATA SET STATUS (FDSS) 
















0& lad ENABLE 
TENS) 


CINT 








07 DONE 















08-11 DIGIT BITS (NBI-4> 





— es 


THESE FOUR BITS ARE CONTROL LEADS TO 
THE ACU. ESE LOW T 


! N CAUSE 
INTERRUPTS. SEE BIT O03 FOR DESCRIPTION. 


CONTRO. LEAD FROM ACU. THIS IS A 

STATEMENT BY THE ACU THAT a ee 

PARTY HAS ANSWERED AND THAT 
ASSOCIATED DATA EET NOW HAS CONTROL OF THE 
THE LINE. IT IS ACCOMPANIED SY THE SETTING 
OF DONE TO OBTAIN AN_INTERRUPT. iT 

REMAINS SET ast AFTER Me END OF 

CALL. (OR UNTIL THE DATA TERMIN a 
READY LEAD 10 THE ASSOCIATED MODEM IS 
DROPPED WHICH THEN DROPS FDSS). 


IF THE nage ea? MODEM ANSWERS A 
CALL WHILE THE DIALER IS iN apes 


DONE BLE IS SET 
THERE WILL BE AN INTERRUPT. (READ ONLY) 
70 ruse aL Ms. SETTING OF eta 


ty #1 OF A 
Sy STEN UNIT) IS SET. (READ /WRITE) 
pst BIT, IS SET TO INDICATE _ THE 


DONE WITH THE PREVIOUSLY 


REQUESTED ACTION AND READY TO ACCEPT 
NEW DATA, USUALLY THE NEXT DIGIT INA 
SEQUENCE’ TO SE DIALED. 

He CONDITIONS B het SET DONE ARE LISTED 


— MUST BE A ONE) 
TRANS. OF PND i ae (AFTER LAST 
SET OR PREV. DPR 
Ming F OF “ TO ae (AFTER LAST 


3. TRANS. aires i TO ONE (IF TIMEOUT 


al 


4. ANS. OF P tO TO_ONE (IF POWER 


SuTTCHED FF) (READ/WRITE) 





(READ /WRITE) 











DATA LINE OCCUPIED 
(FOLO) ; 


lz 


i3 NOT USED 


14 ABANDON CALL AND RETRY 
(ACR) | 
15 POWER IN (PWT) 
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SEQ 0009 


(READ TONLY) 


Q 8 CONTROL L Ep FROM THE ACU. 
en NT RNAL ? FTMER TIN THE ROUT WHENEVER TIMER IS 
est] i Yate HE ACU W WeNEER I IT gives Pg 

AND R DETECTING WRONG NUMBERS AND 
BUSY Sr ENELS IT IS INHIBITED BY THE 
BRESENECE OF DSS EXCEPT IF THE 801 OPTION 

IS IN USE IN WHICH CASE IT TINES OuT 
EVEN THEN AND GIVES AN INTERRUPT (BY 
SETTING DONE). THIS IS USED EN N THE 
PROGRAMMER WANTS A TIMER TO DETECT WRONG 
NUMBERS AND BUSY SIGNALS. 


5 a “iN IS NORMALLY ZERO AND_IS SET BY 
THE ACU WHENEVER POWER IS SWITCHED OFF AT 
THE UNIT. IF A CALL IS IN PROGRESS 

AT THAT TIME, DONE IS SET. (THIS CAUSES 
AN id ay IF ITENS AND MINAB=1). 
(READ ONLY) 
























SEQ 0010 








6.1 ERROR REPORTS 
&.i.1 XXX ERROR COUNT XXXXXX DNL 
EQUAL TO N5. ERROR TAG IN DEFINES WHICH DN11 FAILED THE 


PS UES oS HES HUSHE iolcs elilnc™ 


ODE “eae AILED. 
6.1.2 | XXXXXX GD DATA XXXXXX BD DATA 


THIS EQUALS THE DATS THIS EQUALS THE DATA READ FROM 
LOADED aire A REGISTER A REGISTER BY THE PROGRAM. 
Y THE PROGRAM. 

6.1.3 XXX ERROR COUNT XXXXXX DNCSR XXXXXX DN11 


EQUAL TO THE ERROR CONTENTS OF DN11 DEFINES WHICH 
TAG_IN_ PROGRAM STATUS REGISTER DN1i THAT FAILED 
LISTING AT THE TIME 


6.2 PROGRAM TIMED OUT UNABLE TO COMPLETE CALL 


THIS MESSAGE IS REPORTED AFTER A PERIOD OF TIME HAS PASSED IN 
pot THE PROGRAM HAD EXPECTED TO HAVE RECEIVED DATA SET STATUS 


ND DID NOT. 
6.2.1 THE 801 IS OFF LINE 


THIS MESSAGE IS REPORTED AT THE START OF THE STATIC TEST 
WHENEVER THE DN11 IN USE HAS NO 801 DAILING UNIT CONNECTED TO IT. 


6.3 POWER FAIL OCCURRED 
THIS FUT, TS REPORTED IN THE RESTART SEQUENCE OF THE POWER 
FAIL ROUTI WHENEVER A POWER ays HAS OCCURRED THE a 
TRAPS TO 24 AND ae S_THE VECTOR AND H HAL TS. ON THE ROSTART 


FOR THE PHONE TiRES T0 SETTLE DOWN, FuEN IT SUNPS TO THE START 
OF THE PROGRAM 


6.4 END 
THIS MESSAGE IS REPORTED AT THE END OF EACH PASS OF THE PROGRAM: 








Recinctttbiadieeaiidbtalingt _—_ -— - - (ke UN SG eI AS RE Ot DL ales A es aS A PE ERA Tae AEE 


AMOUNT OF eh 3 TO RUN STATIC TEST 1.5 MIN. 
AMOUNT OF TIME TO RUN ON-LINE TEST 3 MIN. 
RESTRICTIONS 


THE POWER FAIL CAPABILITY OF THIS DEVICE MUST ONLY BE 
PERFORMED IN THE ON-LINE TEST. 


##RECOVERING FROM ERROR HALTS WITH A SOFTWARE SWITCH REGISTER*# 
F THE SOFTWARE SWITCH IS TO SE CHANGE AFTER A HALT 


HEN OPERATOR SHOULD DEPRESS A <tG>BEFORE DEPRESSING 
THE CONTINUE SWITCH. 
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O8-APR-7S 14:21 PAGE 1 SEQ 9013 


.ENABLE ABS, AMA 
-MD-11-DZDNA-A 
geste ee ‘ -11-D9J 

:COPYRIGHT 1976, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
;RELEA SED 21 MAY 76 BY SAM CARPENT 

: SUPPORTS SOFTWARE SWITCH REGISTER .LOC. 176 
;ALSO, SUPPORTS THE DYNAMIC LODING OF LOC.176 


t AHEXDIALEX=11kex# 


4=40000 
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SCOPE=IOT ; TRAP CALL FOR SCOPE LOOP 


gl CATCHER LOC.0-200 44244442444 
"REPT 200 
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ES! 

haa? 

PUT INE 
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14:21 PAGE 3 


:PROGRAM WORK REGISTER 


OSsenT: 


. . = ee 
DOGO. GOGO 
- ui 
it) 
o 
© 


+0500 +00 $0 +o <p oe oes 


GIT 1.000 0 U1 Gott £ 
“we 


* Ce ee ed ee ed ed ed ed en et ed ed ed ed ed ed eee et ey ee 


TE EE WWI UII GIGI WICILIGIOFUFUTUTUT futye + -6 =o 0- 
(O70 CO DED PUT CaFUt CDOS PULL C OOS CD IOUT Ee totusets 





MACYLL 27( 
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TL) O-- 0 0+ b-< b-« p< » ~~ 9 -< 92 & = + oe 


OE POV OTT EE UPON LOO EO LOE OEE Efe 


fucru 


AAT 


ee St ed ee et 
oonw 


Ulrururulus-+- 


8888B88 
ONIMNI00OU 


oO 


—-OOr-oO 
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IRS 
177777, FLAG 
TEXBUF , %3 


#2. DNCSR3 
ONCSR3, DNCSRY 


8 N ~ 
DN¢SRI. STATUS 
sTEXBUP, %2 


82, VECTOR 
8200, SVECTOR 
2, VECTOR 


ONtSRI , STATUS 
s2IT1015s8 
> 


BEGIN 


T 
H 


SES C016 


IZE_THE PROGRAM TO THE CORRECT 
yh iat IS ONLY ENTERED ONC 


;SET_UP THE STACK 

3G0 TO SWITCH REGISTER SIZING ROUTINE 
;TEST FOR T = 

;BRANCH NOT THE FIRST PASS 

;SET PASS INDICATOR 

;SET UP_TO_ RECEIVE DATA FROM TTY 

;ASK OPERATOR FOR FIRST DN1i ADDRESS 


;GO FETCH ADDRESS FROM TTY 


;CONVERT OCTAL TO ASCIT 
;SET UP ALL. ON11 ADORESSES 


-SET UP TO ASK FOR VECTOR ASSIGNMEMT 


;FETCH VECTOR ADDRESS FROM TTY 


;CONVERT OCTAL TO ASCII 
325 VECTOR ADDRESS LESS THAN 1000 
:BRANCH THE ADDRESS IS GREATER THAN LOCC 


;ADJ. VECTOR 
5 TESTyO ENTER ON-LINE TEST ONLY 


sENTER STATIC 
sENTER ON-LINE TEST 





arm) 
rod" 


SPO ee 
Mw L£LOMOwuo 


o 


© 


££ OIGIGIGS 
Oo 


ee 
Se at 
own 


SEBS8B88R8888980000 
isiisit 


(0000000 9-9 ~) 99d dd OOO OOP oro erululUToUTatotatetel 

coco a ha i > ke be a ee Tata Tare 

(ofose Cousee Jota tard: So itr inf tofu toot caer OMe 
NY Fe ee ee 





010142 
000400 


177432 
177774 


901032 
001032 
177452 
177777 
077777 


1777 

001066 
o0csoo 
007540 





O8-APR-"6 


Pe iE aa 
:ON! 
iON dmar EC DIALER INTERFACE 


THE FIRST PART OF THIS TEST CONSISTS OF 
sINTER-ACTION BETWEEN THE OPERATOR AND 





'IS PWO CLEARED 


HECK FOR <tG) 
5 THE OPERATIR WANT TO SELECT ONE ONL! 
RUN NOR Mir 

WHICH ONLL HE WANTS TO RUN 


sCOUNT Xe 

sSET UP SELECTED DN11 
»tEST FOR 8 

s;NO 801 PRESENT 


177777 ,aSTATUS 


ve) 
~— 


Sisto bint tetetr ingot haw 


TOPUTUTUTUTUTUTUTUTUTU FU FUPUTUPTU PUTO PUITULTUTUTUFUTUTUITU TU TLD e— 0 © b+ b+ b+ boo po bo 
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01456 
51464 
001472 
001474 


001510 


001512 
001525 
091526 
001530 


001536 


00154e 
001544 


091546 


Ooo oONoO00O 
9200 O0O00 
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OS-APR-76 14:21 PAGE & SEQ 0018 


IS ACR CLEARED 


77777 «177364 «SS Tex: De 8177777 agTaTys 
40000 177356 I s8IT14, aSTATUS 
ST3E sBRANCH IF BCR 1s CLEARED 
000001 OO1046 ERRI: Mov #1, ERCOUNT :##% ERROR | 
007540 JSR “5, STAER 
ST3E: SCOPE 
STex 


SS BIT 13 CLEARED (BIT.NOT USED) 
177777 177330 §13: Ic 8177777, ISTATUS 


O20000 17732 Sit #81713, aSTATUS 

BEQ STHE sBIT 13 CLEAR EXIT 
go0002 O01046 ERRe: HOV 82, ERCOUNT eee ERROR 2 #44 
o07540 JSR “iS, STRER 


ST4HE: SCOPE 
ST3 


iTS DLO CLEARED 


177777 177274 &T4: BIC #177777 ,aSTATUS R THE WORLD 

010000 177266 BIT Tle, 3STATUS : TEST FOR DATA Lite NOT OSCUPIED 
EQ 3 if : BRANCH IF LINE NOT OCCUPIED 

p00G03 OD1046 ERR2: NOW #3, ERCOUNT tee% ERROR 3 # 

007540 JSR “5, STAER :REPROT ERROR 


STSE: SCOPE 
ST4 


‘ARE THE SCD BITS CLEARED 
177777 177240 STS: BIC #177777 ISTATUS ;CLEAR THE WORLD 


007400 177232 sit #7400 ,aSTATUS  :TEST SCD DIGITS 
BEG STbE BITS SHU BE CLEARED 
o00004 OC1O4é ERR: HOV ; 84, ERCOUNT :#%* ERROR 4 
=Ne 
007540 JSR “5, STAER sREPORT ERROR 
STEE: 3COPE 


O8-APR-75 


a4 
000005 
007409 
OO7E36 
007540 


177777 
900400 





14:21 PAGE 7 SE9 0019 


CAN WE SET ALL BCD BITS 


BIC #177777, ISTATUS 
MOV #7400, aSTATUS  ;SET SITS 
MOV aSTATUS. Ho > HOR 


BIC #1703 ;MASK ALL OTHER BITS 
CNP #7400 5 USR BK 
BEQ ST7E sBRANCH IF BITS ALL SET 
Nov #5, ERCOUNT % ERROR 5 # 
N=N? 
MOV #7400, WORK] sBCD BITS THAT SHOULD BE SET 
ISR 4S, STRERI REPORT ERROR 

SR “5, STAER 
SCOPE 

TE 


S 

FLOAT A ONE THROUGH THE SCD BITS 
BIC 8177777 aSTATUS 

MOV 8400, WORK 1 








RIN, MACYLL 271732) 
NAR.P LL 


001034 
17707 
tenged 
001034 
007400 


001035 


000006 


007636 
007540 








177777 
177002 


000087 





007540 





O8-APR-7S 14:21 PAGE 8 


SE 
READ Boe K BCO BITS 


:D0 THE BITS EQUAL WHAT WAS LOADE 
‘PRR IN BITS READ BACK 


;EXIT PATTERN COMPLETE 
;SETUP_NEXT PATTERN 
LOAD THE NEXT PATTERN 


;### ERROR & ##% 


SIS DONE CLEARED 


#177777, aSTATUS 5 CLEAR THE WORLD 
ge! a us’ OR 


NOT DONE 
 ORRN CH IF DONE NOT SET 
;### ERROR 7 22% 


;REPORT DONE SET 








10e 








.MAIN. MACYL1 27(732) OS-APR-75 14:21 PAGE 9 
DZDNAA. PL) 
27 $ 
30 :IS INTERRUPT ENABLE CLEARED 
pone 4042777 «177777 «176754 §T1l: #177777,9STATUS ;CLEAR THE WOR 
Seg fREnge Risers Ait r og toes Ett a8, jada tne eS Bt cl PERe 
284 902102 o0140S ST] aNCH Pe 8 Te CLEARED 
: 002104 gear 000010 OO1046 ERRIO: AY #10, CERCOUNT ioe ERROR | 
287 O02112 004537 oD7S40 JSR %S, STAER :REPORT BIT SET 
299 02116 90004 ST12E: SCOPE 
283 002120 o02066 S11 
31 :CAN WE SET INTERRUPT ENABLE 
£33 9 138 012777 00340 176652 ST12: Mov #340 sLOCK UPC 
8 6021 2 000100 1767le BIS serie. Cee rus ‘SET IRTERRUPT ENABLE 
295 002136 0 p00100 178704 BIT SSITS.aSTATUS :WAS THE BIT 
29 902144 901006 SNE ST12Ex :BIT SET T CLEAR INTERRUPT 
297 O02i46 o90005 RESET CLEAR I 
298 902150 012737 000011 O01046 ERR11: MOV #11, ERCOUNT 44% ERROR 11 44% 
298 900012 N=N41 
300 902156 004537 og754p JSR “5, STAER :REPORT ERROR 
30: OSel6e O0S077 i7bb6e ST12Ex: CLR asStAaTUS SCLEAR INTERRUPTS 
302 992166 o60504 SCOPE 


303 03170 OOeie2 


SEQ 0021 
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N. MACY11 
ZDNAAR. PLL 


boees8 


002324 


o02226 
002234 
Ode=42 
odee44 


002252 
OGe2eS& 
002260 
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ta 


02172 


042777 
032777 


o0z22¢ 








OS-APR-7& 14:21 PAGE i0 


1S OSS CLEARED 


$177777, aSTATUS LER "§ _—— 
1 seacigren Seah S IS NOT SET 
ede 


REPORT DSS SET 


3 CLEAR THE WORLD 


BRANCH IF PND NOT SET 
* 4% ERROR 13 ### 


REPORT PND SET 


#177777, aSTATUS 
BITY,a US 


ror, 
wr 
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BEESS5 83575) 


eta 001405 
0023 

nate 004537 
O023le 900004 
002314 O0e2be 


002316 O4e777 
002324 


002350 004537 
002354 900004 
002356 


002360 


002376 012737 


rd 
002404 004537 
002410 0004 
OSe4ie 002360 


002414 042777 


o024S4 004537 
00e469 900004 
O0e46e 002414 


oce464 042777 
O02472 032777 
N2s00 901405 
ces0e 012737 


002510 04837 
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KO0e 


:1S THE MAINTENANCE BIT CLEARED 


aie eae Sa 
000014 OO1S4S ERRI4: MOV 


N=N+1 

007540 JSR 
STISXE: SCOPE 
STis 


SCAN WE SET THE 


177777 176524 &TISxX: BIC 
000019 176516 BIS 
900019 176510 BIT 


8 
900015 O0104%6 ERRIS: ie 


007540 JSR 
STL6E: 


3 tifa aStatls 


a SS count 
“4S, STAER 


MAINTENANCE BIT 
#177777, ISTATUS 
86173, aSTATUS 
#8173, aSTATUS 
#15, ERCOUNT 


“5, STAER 


STS MASTER ENABLE CLEARED 


17e4s2 §T1e: BIC 


177777 
co0204 176454 Bit 

0001s C0104 ERRIG: HOV | 
007540 JSR” 


STI6XE: SCOPE 
ST16 


#177777 ISTATUS 
#81T2, aSTATUS 


ST16X 
316. ERCOUNT 
45, STAER 


SCAN WE SET MASTER ENABLE 


177777, 176426 §TI1ExX: BIC 


OCO340 176352 ¢ 
009904 1764le BI 
O00004% 176404 BIT 


BNE 
000017 OO104 ERRI7: MOV 
N=Nel1 
007540 oR 
STI7E: SCOPE 
T1EXx 
:IS DPR CLEARED 
177777 176356 $717: BIC 
oo0002 176350 gil 
W 
900020 OCO1046 ERR2O: HY 
=i1 
007540 JSR 


a on gSTATUS 


acsr 
sare. aSTATUS 
#BIT2, aSTATUS 


ST17 
#17, ERCOUNT 
uS, STAER 


#177777, STATUS 
GIT! ,aSTeTUs 


S 
#20, ERCOUNT 
uS, STAER 





EAR T 

its SR NTENANC ES BIT CLEAR 
BRANCH IF yg ae CLERR 

tee ERROR 1 


;REPORT MAINTENANCE SET 


;CAN WE SET MAINTENANCE 
:IS een NANCE SET 


:Y 
ER ERROR 1S ### 


;CLEAR THE WORLD 

215 me ENASLE CLEARED 
:BRANCH IF CLEARED 

1% ERROR 16 ##% 


;REPORT MASTER ENABLE STILL SET 


;CAN WE SET MASTER ENABLE 
:1S MASTER ENABLE SET 


ry S EXIT 
ere ERROR 17 ##% 


;REPORT ERROR 


;CLEAR THE WORLD 
1S “ty PRESENT CLEARED 

H IF gate PRESENT AS CLEARED 
re NERROR 20 * 


;REPORT DATA PRESENT IS SET 


SES 0023 


Pikaer eerie mete enn LDP eee ap ee a | 
.MAIN, MACYLL 27(732) O8-APR-76 14:21 PAGE 12 SEQ 0024 
DZONAA. PLL 

383 902514 od0c04 STI7XE: SCOPE 
384 O0251e ode4c4 5717 





.MAIN, 
DZDNAA. P11 


MACY11 27(732) 


OeS20 
O2te26 


002552 
002560 


002554 
C0eS&5 


002570 
002576 
002604 
002606 
002614 
002620 
002622 


002624 


o0e642 


002650 
002654 


002674 
002702 


602716 
poe? 


OC=7S¢2 


092760 
002764 


042777 


O0eb2e4 


042777 
03 


000414 





MOe 
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eAKe4 


oocde! 
007540 


177777 
009001 
oo002e 
007540 


177777 
001065 


000023 
007540 


000901 
000901 


009924 
007540 
176134 
000025 
007540 


177777 
001066 


000026 
007540 


176322 


176300 
001046 


175252 
176244 


CO104%6 


176216 
176210 


001946 


176164 
176156 


001046 


001046 


176106 
176100 


OC1046 


:CAN WE SET DPR (DIGIT PRESENT) 


ST17xX: BIC #177777 agTal US 
MOV #81TS'BtT3 aSTATUS SET PND 


BIS #8IT1,aSTA TAtUs -SEt DPR 
SIT #1T1 2STA ° 
BNE ST20 
ERR21: NOV (aad 42% ERROR 21 44% 


JSR %S,STRER 
STe0e: SCOPE 


?IS CRQ (CALL REQUEST) CLEARED 
$120: BIC #177777, aSTATUS 

BIT #8170, aSTATUS ;1S CALL REQUEST SET 

BEQ STPIE NO! IT SHOULD NEVER BE SET 
ERR22: NOV #22, ERCOUNT :#%% ERROR 22 #%# 


JS %5, STAER ;REPORT ERROR 
STelE: SCOPE 


T20 
i TEST THE ABILITY OF a yt. CRO 


Stel: BIC #177777, STATUS ;C).EAR THE WORLD 
BIT MASK, May Tus :IS THE DN11 CLEAR 
BEQ ST sDN11 OK’ 
ERR22: HOV #23, ERCOUNT :#%* ERROR 23 ¥#* 
ISR ¥%S, STRER ;REPORT ERROR “STATUS REG. NOT CLEAR" 
BR STS2E ?EXIT ERROR OCCOURRED 


Stee: B15 WBITO,ASTATUS  ;SET CALL REQUEST 
BIT #8170, MSTATUS  ;1S CALL REQUEST SET 


BNE ry 
ERROY: nov #24, ERCOUNT :4%% ERROR 24 #4 

=Ne+ 

JSR “5, STRER sREPORT ERROR 

BR T22 :LOOP ON ERRO 
STe2x: TSTB  aSTATUS sDONE | SHOULD NOT BE SET 

BPL ST22E ‘BRANCH IF DONE NOT SET 
ERR2S: HOY #25, ERCOUNT 1 eee ERROR 25 x*% 

JSR “5, STAER sREPORT THE ERROR 
ST22E: SCOPE 


DOES MAINTENANCE SET DLO 
E723: Bic #177777, aSTATUS ;CLEAR THE WORLD 


BIT MASK, aSTATUS -IS REG CLR 
BEQ ST2Y sYES! EXtT 

ERR26: NOV #26, ERCOUNT : tee ERROR 26 ¥¥* 
JSR “5, STRER sREPORT ERROR 
BR STDSE 


SEQ 002s 





Eee 





MACYLL 27(732) 
Pll 


002766 05277 
7 se? 


002774 032777 
03092 001005 
003004 012737 

000030 


0 
003012 G04S37 
00301 900004 
003020 002734 


O8-APR-; = 


000010 
010000 


000027 
007540 
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#81712, ISTATUS 
T2 


: XIT 
OC1046 ERR2?7: ;*#% ERROR 27 *#% 












a +E 
ill 
90d 


ee ee ed 


320900 
GIGIG) 


e+e +p 


Sow “cto 


f MIO 


SBR 


oo 


alee) 


BES BF 
II GIGIGIG 


c Ss =] 
Moo 
JG) 


ee 


l 77 79 


60106 13 
000030 - 
007540 


17736 


Pv etetnl 
060032 


607540 


we! 


O8-APR-76 
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SCAN WE SET PND IN MAINTENANCE MODE 


bros, 


REE ST BE MOTELS ss ey cute 
Ol iS i iJvs -Is CL ta) 
ceo St ;vES! Reb CLEAR 
O01046 ERR3O: NOV #30, ERCOUNT #44 ERROR 30 #44 
=Ne 
JSR “5, STAER 
3k STobE OOP ON ER 
175766 ST2SX: BIS apf Tete IT3!8IT0, igs ATus EET Enc IN MAINTENANCE MOC 
175760 ai? a51T4. STATUS 
SNE Stes. 3sPND S 
001046 ERRSL: MOV 831, ERCOUNT eer Penor 31 see 
N=oNe 
ISR STAER sPND NOT SET 
BR cPaee SEX] Parse OCCURRED 
:0088 PNO SET DONE 
drog, TST ISTATUS :I$ DONE SET 
BMI T : :BRaicn 1F DONE SET 
001045 ERR32: MOV 832, ERCOUNT :### ERROR Se 408 
N=Ne] 
JSR x5, STRER 
ST2sE: SCOPE 
572 
[CAN WE SET DSS IN MAINTENENCE MOD 
175710 §T2ex: BIC 8177777 ,ISTATUS 
176702 ~ git mask, sts rpie CLEAR 
COIO4G ERR33: MOV 335 ERCOUNT lees “Esai 33° 
Be STRPE iREPORT ERROR 
175656 ST27: BIS 08179!8173!8170, ASTATUS ;SET OSS IN MAINTENANCE MOCE 
i17&650 ef seis. status 
NE $730 
OOLD4S ERAS: Mov 834, ERCOUNT ;#e4 ERSOR 34 see 
N=Ne! 
1S “S STAER 
sf sTe7E ;LOOP ON ERROR 












S] 
33 
a) 
i 


43 
43 
4 

= 
Es 


‘Poot 


© 
uw 


iste 


FVEFUESUCTULIUCHVCHUCTUCTUCSUCSUCINCINCIVCFVC INC FUCIVCIT ESD 


UPTUDD + 0-0 + 0-+ <0 b+ 0-+( D 


i 


Cotas Cn00D IOP Ul £ Gitue-O.0 


cna 
foegep 





aT 
003224 


were wee 


CO3 
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:DOES DSS SET DONE 


érzo: TST8 ge ]gTus ee en te Pe st. BY OSS 
BMI 7E 
ERR3S: ww a #35, ERCOUNT ee “ERROR = #t* 
Lh oe 4S, STRER ;REPORT ERROR 
ST27E: $¢OP 


oe 
;CAN WE Ser PWO IN STN TENSE _ MODE 


Sta: EM #177777, 357 


3IT MASK, aStATUS S STATUS REG ¢ 
3—0 ST31x : BRANCH i REG CLEAR 
ERR3E: Mov 836, ERCOUNT :#4#% ERROR 35 #44 
N=Ne 
isk “$487 TAER sREPORT ERROR 
STSIX: -- BIS #8IT3 aSTa7Us sSET MAINTENANCE 
gic 8177760 Tus 
81s 881719 sists. aSTATUS :SET PUO 
TST as TATU 
SMI sT3e2 2 
ERRST: MOV #37, ERCOUNT ,;### ERROR 37 #44 
N=N+] 
ISR “S, STAER 
3 STSEE ;REPORT ERO! 


EEE 











.MSIN. 
DTDNAA.! 


PAPAL AT Ath 
GItue-o.w00 


ave RATA AT ALATA 


LE 4 OIGIGIGIGS 
O.cwo-Iiouw 


MACY11 
Pil 


003340 


Base 
ne 


p03464 
053470 
003472 


903560 


003564 


27.732) 
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175504 
coco4O 


007540 


‘177777 


eee 


003066 
900042 


007545 


00422 
Bcbe0 


oc od4e 
C07540 


175374 
ocoo43 
007540 


errr? 
001085 
000044 
007549 
000410 
50 


Oe. | 


000002 
oooc4s 
007540 


002046 


175456 
175459 


001046 


175424 
175416 


001046 


001046 


PAGE 17 
WAS DONE SET 
S732: {STB  dSTATUS TEST DONE 
MI Sie > EX i 
ERRYO: NOV ; #40, ERCOUNT Be RROR 40 #44 
=Ne 
ISR _  %5, STSER ;DONE NOT SET REPORT ERROP 
ST32E: core 
-CAN WE SET REANDON Abt an ETRY IN MAINTENANCE MODE 
8f32x; BIC 177777 
BIT whey gota tue -IS REG. CLEAR 
3EQ ;YES Ex 
ERRY!: Nov #41, ERCOUNT 144% ERROR 41 #4# 
=Ne 
JSR “S, STAER 
38 STS4E sREPORT REG. NOT CLEAR ih 
S733: BIS SBITILIBITZIBITO. ASTATUS ;SET ACR IN MAINTENANCE MODE 
517 #8IT14.a5TATUS 
; BNE ST34 
ERR: on , 42, ERCOUNT ;### ERROR 42 #4 
=N+]. 
JSR “5, STAER sACR NOT SET 
3& STS4E 
-DID ACR SET DONE 
éT34: TST8 asyaqus +a§ Done SET BY ABANDON CALL AND RETRY 
ERRY3: Ae #42, ERCOUNT ;##% ERROR 43 #44 
JSR %S, STRER DONE NOT SET 
STR4E: SCOPE 
5732x fk 
DOES. PND CLEAR DIGIT PRESENT 
fd | 
Ett nhey getatus S REG CLR 
BEQ ST35 :YES araiien 
ERRY4: MOV 844, ERCOUNT tee EDROR 44 #40 
JSR “5, STAER 
BR ST35E sLOOP ON ERROR. 
sT3s: Is B8ITS!B1T3, 9STATUS 38) PND - 
BIS ss waITL,astatuS §=6;SeT_Dratt PRESENT 
gi #211) "aSTATUS «=: 1S ‘IT se 
NE :YES BRANC 
ERR4S: MCV sue ERCOUNT , eee ERROR Mas sae 


N=Ne] 
ISR “5, STAER REPORT O61 PRESENT NOT SET 
BR ST3ée “LOOP ON ERR 














MACYI1 27: 
Pil 


003616 
3620 


po3630 
003636 


003643 
o53646 


8735 


ERRYE: MOV 348. ERCOUNT 


STSEX: 


ne 
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BEG 
N=N+] 


JSR “5, STAER 
ST3SE: ayes 


T34X 
cA We SEI AND CLEAR DONE 
$736 S78. ASTATU 


ae ST36X 
ERRY?: ba 847 ,ERCOUNT 
JSR 45, STRER 


3R STSEE 
SIs 88:17, aSTATUS 


iH05 oraz PRESENT CLEARED 
t1,sst 3 ae CLEAR PND 
t be 2 IGT PRESENT CLEARED 


der ERROR 4G ### 


;REPORT ERROR 


; TEST 


DONE 
sDONE CLEAR BRANCH 
,##4 ERROR 47 444 


;REPORT ERROR 
;LOOP_ON_ERROR 
;SET DONE 


~ 





.MAIN. 
QZDNAR. PLL 


OOOrrrnmrormu 
TU + b+ 0 = 2 po ho be 
“OWDM IO £oIU- EO 


ao 
fu 
~ 


Macyli 


peseee 
nok 43 
0036 

Beaess 
003674 
003702 
093706 
003710 
993715 
003722 
003724 


po37e8 


004136 





59; 9% 


i (732) 


OS. 
pear ag 


BE5950 
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175172 
000050 
007540 


000200 
175142 


000051 
007540 


004010 
000340 
175054 
oc00S2 


007540 


04032 


009904 
CO4O4E 
003053 
007540 
004112 


001040 


000340 
000054 


081870 


000409 


001326 


001022 


001046 


175146 


001046 


001048 


174750 


174702 
001046 


174650 


001050 


iCAN WE CLEAR DONE 

ELRDON: TSTB  aSTATUS 
BMI DON sel 

ERRSO: MOV 850, ERCOUNT 
N=N+1 
JSR %S, STAER 
ER STAGE 

DONSET: BIC BIT, ISTATUS 
TSTB = ASTATUS 
BPL ST3bE 

ERRS1: MOV #51, ERCOUNT 
N=N+1 
ISR “5, STAER 

ST36E: SCOPE 
5T36 

-CAN WE GENERATE AN INTERRUPT 

éT37; CLR asTat 
MOV SINTER, AVECTOR 
MOV 
BIS 
NOP 
IMP ST37X 

INTER: MOV 8340, aCSR 

Siete 0 asTAtus 

ERRS2: MOV #52, ERCOUNT 
N=N+] 

JSR “5, STAER 

3 58 ST39E 

ST37X: MOV @SECINT, aVECTOR 
BIS #8IT2, IONCSR1 
NOP 
IMP ST38 

SECINT: 

ERRS2: MOV #53, ERCOUNT 
N=N¢] : 
i5k “5. STAER 

S738: MCV aS TEE, VECTOR 
CLR acsR 
CLR TIME 
INC TIME 
BNE 
MOV #340, CSR 

ERRS4: MOV #54, ERCOLUNT 

_ N=sN+] 
JSR ¥%S, STAER 

ST38E:° MOV STRLINK, %O 
SCOPE 
5737 

ST4H0: BIT 88178, ISR 
BEQ . +6 
IMP Tl 
CMP ONCSRY, STATUS 


33. DONE SET 
ie 3 ERROR” Es HEE 


s REPORT ERROR 
;LOOP_ON ERROR 


CL R DONE 

iTS DONE CLEARED 
fase ERROR S1 +#* 
;DONE NOT CLEARED 


; SET eu ga Ml 
IORITY LEVEL 


8240, a¢5R : SET 9 
sSITO'SIT7,asTaTUs ; SET” INTERRUPT ENABL te g 


ENB DONE 
;NO' INTERRUPT SHOULD MASTER ome 
;G0_ SET MASTER ENASLE TQ SEE 


;##* ERROR S2 #4# 


;SET ee INTERRRUPT VECTOR 
:SET MASTER 


:NO INTTERRUBY SHOULD OCCUR be a IS AT LEVEL § 


:WE SHOULD NOT INTERRUPT LEVEL TO H 
;### ERROR S3 44% 
; REPORT THE ONL1 INTERRUPTED 

PE LOOP 


INTERRUPT 
:LOMER PR 3 ay PRIORITY 
;WAIT FOR INTERRUPT 


very UP CPU ONi} DIC NOT INTERRUPT 
* ERROR S4 


meron DN11 DID NOT INTERRUPT AT BRO 
RESET STACK 

DIR THE “Aa hy SELECTED A ONL 
trae OPERATOR DID SELECTED A DN11 


NOT SET 
F WE CAN INTERRUPT 
REPORT AN INTERRUPT OCCURRED THAT IS AN ERROR 





SE9 0031 


.MSIN, 
DZONAR. P11 


ol el 


COrmrmrmm rao 
nooo. Yate 4-4) 


vowwMwM ys 


we 
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004144 


Bouse 


gns237 
O01 sre 


O8-APR-75 


001040 
001042 


174566 


004232 
001042 


J 
te 


MYCNT: 
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GO3 


RESTART 
stig” Tee atu 
W376, ‘ aSTATUS 


Tl 
DNESR1, STATUS 
#8179, a5R 
MYON SE 
yeNT#e 

MYCNT 

STIX 


#100, MYCNT 
HZ? 7770, TIMEL 


TINE 
+IMEL 
le 





;SET_ INTERRUPT ENABLE 
IF SET DNL] IS POSSABILE THERE 


;TEST IF_THE OPERATOR WANTS TQ LOOP_ON STATI 
;BRANCH TO ON-LINE TEST IF BIT $ NOT SET 


.;LOOP ON STATIC TESTS BITS SET 


;WAIT FOR PHONE LINE 70 SETTLE 


TESTS 


SEG 0032 















JMAIN, OMACYLL 27(732) O8-APR-7E 14:21 PAGE 21 SEo 0032 
BZDNAA.P LI 
£95 
536 ire CPERATOR ust STi PHONE NUMER TQ £A¢ EACH ONL! 
637 904270 013706 001079 SECIN: MOV 
g98 904274 904737 9010142 JSR CK SHR ‘CHECK FOR AENTL G 
893 904200 of0095 RESET 
700 pousCe gler7s 905412 174514 MOV eis, JVECTOR SET UP VECTOR 
701 904310 905004 CLR 
soe Dous1e 005737 004322 ist NOFLAG 
i 
? 338 ppaoks BR NEWNO 
755 o04322 o00900 NOFLAG: 0 
08 004324 904737 O1014e2 . JSR CKSWR sCHECK FOR <6) 
707 Oo4330 O3e777 COceCd 174442 BIT sett?) aSR :TEST FOR TTY CONVERSATION 
708 904336 001104 BNE drat :BRANCH IF NO CONVERSATION 
703 004340 005037 oo1972 NEWNO: CLR nee :CLEAR PHONE MAP 
710 O04344 905037 901074 CLR MaP+e 
711 004350 052737 177777 004322 BIS #177777, NOFLAG 
712 904356 005037 001036 CLR COUNT 
71s 004362 012703 006314 NOO: MOV #PHOL, %3 :SET UP PHONE #1 BUFFER 
774 04366 10400 EMT 
715 004370 90715 PHI 
716 904372 004737 006172 ISR “2 TYST :FETCH KEYBOARD CHAR 
717 004376 105737 006314 Sta PHO 
7ig do44o2 0140s BEQ NOL :OPERATOR FAILED TO TYPE A PHONE NUMBER 
718 04404 005237 001036 INC COUNT 
720 504410 152764 090377 901072 6158 #377, MAP(4) LOAD MAP 
72: O04416 605204 NOl: INC “4 
722 94420 912702 006336 MOV #PHO2, x2 
723 004404 104001 EMT +1 
724 OO44e6 007172 PH2 
725 904430 004737 006172 JSR “7, TYST sFETCH KEYBOARD CHARACTER 
726 904434 105737 005336 TSTe = PHO2 :DID THE OPER ATOR 7 YPE A PHONE NUMBER 
7e7 Dows4o O014D5 REQ NOz :THE OPERATOR ONLY GAVE THE PROGRAM ONE NUMBER 
728 Oowwse 005237 001036 INC COUNT : THE OPERATOR PYBED AN NUMBER 
723 OO4HE 152754 000377 001072 BISB) #377, MAP(4) LOAD M 
730 «o44s4 6005204 NO2: INC %4 
731 O04456 012702 o0s3¢0 MOV #PHO3, %3 
732 Oo4462 104001 EMT 
733 OO44E4 007205 t PH3 
734 OO4466 004737 00617 ISR “47, TYST FETCH KEYBOARD CHARACTER. 
725 004472 105737 O06360 TSTs = PHO ;DID THE OPERATOR TYPE A NUMBER FOR LINE THREE 
736 0447S 401405 BE NOS "NO NUMBER FOR LINE THREE 
737. 904500 905237 001036 INC COUNT ‘OPERATOR TYPE 5 A NUMBER 
| 73 O04504 152764 000377 01072 B1S84377,MAP(4) = LORD AP 
739 804512 O05204 NO3: INC 
749 604514 012703 ooGHo2 MOV #PHO4, %3 
741 904520 104001 EMT +1 
742 O04552 007220 PHY 
743 004524 004737 006172 JSR %7 TYST sFETCH KEYBOARD CHARACTER 
| 744 04530 105737 OCE4DE - TSTa 3s PHOY :TEST IF THE OPERATOR TYPED A NUMBER FOR THIS LINE 
| «745 GO4S34 001405 BEQ DNDIAL OPERATOR Bio NOT TYPE A NUMBER 
| THe OO4E%6 152764 900377 901072 BISB  #377,MAP(4) LOAD M 
747 004544 005237 001036 INC cou 
748 QO4550 013737 001014 001050 DNDIAL: MOV ONCSR1, STATUS 
748 OO4556 013737 801036 o01044 MOY COUNT, SAVE 
750 O04564 605004 CLR “4 
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000055 
007724 


001044 


000002 


001060 
ed 
001014 

00107e 


000101 
010000 


OOo0S6 


174074 
007724 
001044 


oc0dde 


173772 


001040 
001042 


001032 
091034 
001046 


001050 


001044 
001050 


174116 
174110 


001046 


- 001032 


001050 


001030 


173754 






3 TEST FOR DN11"S TO BE IN READY STATE 


PEE, 


ERRSS: 


MODOK: 


E 
EXMODOK: 
AD 


M 
' SETCRQ: 
: BE 


ERRSE: 


BR 
DLOTST: 3 


EXCRQ: 


a 
Ge 


a Rea a 


FOR LG 
‘IS T HIS PINE Tachive 
BRANCH NOT ACTIVE 


;ON11 READY Ok 
:FETCH CONTENTS OF REGISTER 
: FETCH ROORESS = REGISTER 
:##* ERROR SS * 


;REPORT ON11 NOT READY 


;YOU CAN NOT CONTINUE 
ON UNTIL DN11 IS MADE READY 
:G0 SET CALL REQUEST 


;SET_UP FOR_NEXT DN11 


T an FOR PHONE NUMBERS 


;TEST NEXT DNI1 

;SET UP DIGIT POINTER ONE 
;SET UP DIGIT POINTER TWO 
:SET UP DIGIT POINTER THREE 
SET UP DIGIT POINTER FOUR 
;SET UP TO ENABLE CRO 


ON11 POINTER 


:SET_UP 
31S THIS ACTIVE 
;SET_CRQ -_ INT. ENABLE - MASTER ENASLE 


; TEST FOR DLO SET 
SET Ok! 
ee ERROR S& *## 


;FETCH CONTENTS OF STATUS REGISTER 


;GO0 WAIT FOR INTERRUPTS 


;SET UP FOR NEXT ON11 


“SET UP NEXT DN11 


BR 
:SET UP TO COUNT DSS INTERRUPTS AND TIME OUT IF ALL 


:0SS eens DO NOT OCCUR 
aCSR 


WAITIN: 


2 
TWOSEC: 
BN 


;NUMBER OF DN12 


;SET UP TIMER 
SET nBSTER ENABLE 
FOR OSS 


;WAIT 








81 


0009 0000 (9 0000 CoWD Go OC Co 
1) 0+ 6 = b= 0-6 + op at ae) 
—-OWDO-1rul cc «oa 


. MATIN. 
DZONAA. PLL 


MACY11 27(732) 


oosos2 
e054 


fe) 
005314 
005322 


O0S346 
005352 


001372 


004737 
COO0oS 
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000340 


000057 
TIT 
aoia?2 


irae 


177770 
001040 
001040 


001042 
010000 


001036 
001014 


001040 
001042 
O00C40 
001050 
173535 
O000E0 
007724 
001044 


do020e 


010142 


173720 


001046 


001044 
001050 


001032 


001050 


001042 


173872 


001044 
001050 


173606 
001042 


173552 
001034 


001032 
001046 


001059 


ERRS?: 


M 
ssiechictaan 


MPON: 


END: 


CLRDN: 


ERREO: 


* DSSCLR: 
EXCLRON: 


SDNLI’S MUST BE 
JSR 
RESET 


NOTCRO: 














TWOSEC 


W 
#340, aCSR 
+1 


“4 

#57, ERCOUNT 
OUNT , SAVE 

Rea STATUS 


MPDN 
JSTATUS, WORK 
%5, STAER2 


SAVE 
+ ad 


12 STATUS 
DNSTATE 
#177770, TIME! 
TIME 


TIME 


a4 
TIME 
‘le 
#81712, 25R 
NOT CRO. 


COU 
BNcSRL, STATUS 


MAP (4) 

EXCLRON 

#170 JSTATUS 
177770, TIME! 

TIME 


-4 
TIME! 


ol 
#BITS, ASTATUS 
DSSCLR 

STATUS, WORK1 
ISTATUS, WORK 


TUS, W 


#60, ERCOUNT 


¥%S, STAER2 
SAVE 
REPEND 


‘2 STATUS 
CLRDN 


CLEARED BY RESET IN THIS TEST 


PC, CKSWR 


;**# ERROR 60 *## 
;REPORT ERROR 
;RECYCLE 

:GO CLEAR NEXT DN11 


:CLEAR THE WORLD 





3E9 0035 





Ree SRY Time OUT 


;*#% ERROR S7 ##% 


iFEor ie Tues ine ts active 
{LINE NOT RCTEVe.chECk NEX 


FETCH DN11 

REPORT STATUS 

;GO REPORT END 

;SET UP TO TEST NEXT DN11 


;SET UP TIME TO LET PHONE RING 


















;TEST HOW DO WE TERMINATE THE CALL 
:CALL TERMINATED BY RESET 


HIS LINE ACTIVE 
IS NOT ACTIVE 


a 
Dm—4 
a 


SL 
S_N 
CRQ 


;WIAT FOR OSS TO COME BACK 














;TEST FOR DSS 
DSS CLEARED BY CRO 
SET UP FOR ERROR REPORT 


;CHECK FOR CNTL G 





. MAIN, 
DZONAA.PL1 


005406 


MACY11 274732) 





012737 


See 
S237 
1 
O0S= 


000137 


177770 001042 
001040 
001040 
001042 


001304 
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REPEND: 


KO3 


Cee, Taree ;SET UP 70 WAIT FOR LINES TO SETTLE COWN 


Hv 
4 
TIMEL 
lz 
+1 
;REPORT END 
NOTFIRST ;RECYCLE TEST 








SEQ 0036 





~MAIN. MACY] 
DZDNAA.PL1 


80 O0S4le 


005526 
005534 


271732) 


o00651 


OS-APR-7S 14:21 PAGE 2S 


INTERRUPT HANDLER FOR DIALEX 


: ON LINE 
900904 173374 tnt: BIC 
001936 oo01044 MOV 
001014 oo10s0 MOV 
006314 001100 MOV 
901052 -001076 NOV 
001072 DNTST: 1318 
173364 TSTB 
BPL 
180000 173254 BIT 
BEQ 
173374 TST 
BR 
ooo0040 173334 NOERROR: 81 
co0020 173324 BIT 
000061 OOL046 ERR61: MOV 
N=N+1 
007724 ISR 
001100 OOSS&4Y PNDSET: MOV 
173322 MOV 
172316 TST 
po0090 001032 SELECT: move 
000377 901032 BIT 
100900 173270 BIS 
004089 173164 Bri 
oroo1e 901932 MOY 
000360 O01032 LASTDG: BIC 
001050 MOV 
INC 
103 MOVE 
000200 173176 SETDPR: BIC 
oo0do02 173170 BIS 
173212 INC 
901050 001022 INCDN: CHP 
001044 DEC 
BEQ 
EXINC: INC 
ooo092 001076 ADD 
009002 001050 ADD 
990022 901100 BDD 


TEST 
#81T2, BDNCSRI 
COUN 
DNCSRi er eTUS 


#PHO1, POINT 
sPNTI, "ENTRY 


INC 
#160000, ISTATUS 
NOERROR 


JENTRY 
DSSSET 
REPORR 

#9115, 9STATUS 
#8IT4, ASTATUS 
PNDSET 

#61, ERCOUNT 
- tt 
Senin a 
JEN 

IN CON 

0(3) , WORK 
#377; WORK 
LASTOG 
#B1T15, GENTRY 
#8IT11,a5R 


WORK, @ ser ATUS 
#PIT1: aSTATUS 


NTR 
UL att 


SEQ 0037 


;CLEAR MASTER eT 

SET UP TO COUNT ONI1’S 
:SET UP ADDRESS ate 
:FETCH NUMBER POINT 


;1S THE LINE ACTIVE 
:BRANCH THE LINE IS NOT ACTIVE 
31S THE DONE FLAG + T 
;NO INTERRUPT FROM THIS DNi1 
; ERROR ? (PWO-ACR-BIT13 UNUSED) 
3 FRAN NO ERROR 


;1 E END OF CALL 
;YES ACR SET END OF CALL 
REPORT ERROR OCCURRED 
1S DSS SET 

:BRANCH IF DSS SET 

TEST FOR PND 

:PND SET OK! 

:xa% ERROR 61 *## 


“FETCH DIGIT 
31S THIS THE LAST DIGIT 


LOAD END OF NUMBER CODE 

;LOAD DIGIT INTO TOP BYTE OF ON11 REGISTER 
;LOAD BCD DIGIT 
;CLEAR DONE 


; TEST FOR LAST DN11 
sBRANCH ALL DN11 OPERATING 


;SET UP FOR NEXT DN11 POLE 


sTEST NEXT DNLL 













MO3 
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DZDNAA 






;TEST OSS FOR OVERFLOW AND EXIT 
















S33 gp: % gos? 37 001030 EXxDSS: Ts1 SSCNT sDID WE RECEIVE DSS FROM ALL 

: BEQ ESTE sYES EXIT 
$34 O05 052777 000004 173050 BIS § wBIT2,aDNCSRI SET MASTER ENABLE 
332 Dos. 45 Dooaae RT 
938 005746 1270§ 901000 RESTE: MOV = #1000,%6 sRESET STACK 
33° G0S7S2 O00IS? O0EISe IMP END SRECYCLE PROGRAM 
939 ; 
349 ; 
gui {ROUTINE DEC DSS COUNT 
$42 005756 305337 001030 __ ss DSSCNT 
$43 905762 042777 000200 173060 "BIC #BIT7,aSTATUS CLEAR DONE 
git 005770 bo0rss BR INCDN 
a4 ROUTINE TO REPORT DN11 ERROR 

- 
$48 005772 REPORR: 
843 005772. 012737 OO0062 OO104S ERRb2: MOV #§ #62,ERCOUNT  § ;#%* ERROR 62 ### 
350 009063 N=N+1 
$51 06000 904537 907724 ISR Re 
$52 O06004 042777 000201 173036 BIC aBttriBii0,asTaTUS ;CLEAR DONE AND CRO 
$53 006012 babes EF ;G0 TEST'NEXT DN11 
365 ; 
356 ; 
= : 

$ 

#53 ;MAINTENANCE ROUTINE FOR SETTING PULSER 
361 ; 







862 906014 012737 DO0340 OO1002 MASTER: MOV #340, CSR ;LOOK UP CPU. PRIORITY 
963 O06022 013706 001970 MOV SIKLINK “— 

364 006026 004737 010044 JSR s CHECK FOR HARDWARE SWITCH REGISTER 
965 006032 017737 172742 oD10S0 MOV agR STATUS ;STORE ADDRESS 

366 005040 od00n0 HALT ;LOADSR FROM DOC. 5.3 

967 O06942 O0473s7 oO1014e EXMAST: JSR PC, CKSWR CHECK FO 

S68 OCOED4E 917777 172726 172774 MOV aSR, ISTATUS : MOVE SR INTO” ONL! REGISTER : 
$63 o060S4 OO0240 NOP 








40 
973 006064 032777 000010 172706 BIT #8IT3,aSR ; TEST FOR MAINTENANCE MODE 
874 006072 001015 BNE CLRWAT BRANCH WE ARE IN MOINTENANCE MODE 
975 906074 012737 177770 001036 MOV #177770,COUNT  ;WAIT 2 SECONDS FOR 801 SIGNALS 
976 006102 005037 001040 R TIME 









CL 
006198 005237 001040 TIMW: ane TIME 
$79 006114 005237 001036 INC COUNT 






980 006120 001370 BNE TIMW-4 

981 O06lee 005077 172722 CLR ASTATUS R_ON11 

$8e O06l1e6 032777 OOOO! 172644 CLRWAT: BIT #B1T3,dSR ‘BRE Ate IN oe es MODE 
982 006134 001013 BNE CLRRE sBRANCH NO NEED TO WAIT 

984 006136 Qle737 177770 001036 MOV 8177770,COUNT  ;WAIT FOR S01 

$85 O06144 005037 00104 TIME 









CLR 
986 006150 005237 001040 CLRTIM: INC TIME 





WMNE£WIM-OWONOU LOMO 


furor 


— i 
SISSY Vw fu 
6.0 NOU ure, ™“ 


o-b-b~e 
OXoooOMO 


4. +. £ 


Be a 


CLRREG: ay aSTATUS ; RECYCLE 


TYST: MOV #340, aCSR ;LOCK UP INTERRUPTS 
TSTFLG: TSTB aTKS ; CHECK FOR FLAG 
BPL TSTFLG 
MOVB aTKB,aTPS CHARACTER IN BUFFER 
TSTB aTPS :ECHO CHARACTER 


BPL 274 
CMPB #377, 3TKB ;CHECK FOR RUS-OUT 
eS ‘EXIT IF NOT RUB-OUT 
ee ;REPORT RUB-OUT ACKNOWLEDGED 
BR Tere. ;GO WAIT FOR NEW CHA 
CKCH:  TSTB : CHECK TO SEE IF COABING SWREG 
BNE Ig ‘IF SO GET OUT 
nas iis, , aTKB :CHECK FOR CARRIAGE RETURN 
MOVB aTKB, (3)+ ;LOAD CHARACTER IN BUFFER 
BR TSTFLG 
CLRB (3)+ 
1$: RTS %7 sEXIT DELIMITER TYPED 
TEXBUF: 0 
=.+20 
PHO1: 0 
.=.+20 
PHOe: O 
.=.+20 
PHO3: OQ 
=.+20 
PHOY: OO 5 


Cae TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 


TYP: a%6, %0 GET ADDRESS THAT CONTAINS MESSAGE ADDRESS 
ADD #2, a%6 ft 
MOV a%0, %0 ADDRESS AF MESSAGE TO RO. 
YPA: Nove (0)+, TYPDAT :GET CHARA 
MPG #100, TYPORT :CHECK FOR "a" CHARACTER 
NE TvP :BRANCH IF NOT “a”. 


R 
O06S44 TYPC: CMPB #45, TYPDAT 










SEQ 0039 


BNE CERT I 
cout 
BNE CLRTIN-4 






EXMAST 














ROUTINE TO HANDLE KEYBOARD CONVERSATION 
; ROUTINE ACCEPTS NUM. OR ALPHA CHARACTERS 



































TI ; TERM INATOR | mR. DONE. EXIT. 
;CHECK FOR “ 






BEQ TYPF . BRANCH IF weeiae’ 











BO4 
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OTONAS. PL: 
1043 QOBNG2 122737 000042 O0bS44 CMPS = 842, TYPDAT NOT "x". CHECK FOR “a”. 
i044 006470 00141? SE0 TySG BRANCH if “s". 
1045 D08472 OO4TS? oDEso0 ISR “2 TYPD TYPE CHAR IN TYPDAT 
1348 OOe47E OOOTSE oe 5F TyFA 
154? SOSS00 11377? oosS44 17227 TYPO: MOVS  TYPDAT,aTPB OUTPUT CHORACTER TO PRINTER 
1048 O0850E 108777 172276 TSTS = ATPS :NAIT FOR DONE F 
1348 906512 100375 BFL 4 
1950 906514 00080? TYEXIT: RTS 7 sEXI 
15S] 55e5i8 EFS? oo0015 ooss44 TYFF: " MOVE = lS, TYPDAT Hove CARRIAGE RETURN CODE TO TYPDAT 
15352 508524 O47? «008500 JSR “2 tye TYPE CHAR. 
1553 998530 112737 O00012 006544 TyPG: MOv8 #12, TYEDAT : HOVE LF CODE To TYEDAT 
1954 08538 O4737 908500 JSR “7, TYPD :G0 TYPE CHA 
1585 O56542 900734 BR T 8A 
i5S— O0es44 55500 TYPDAT: 0 
id$3 TINE, 19 0 DECIOE EMT CALLS FOR TT 
105§ OOES4— 911800 ins (6) .%0 
3069 06650 Geer45 104001 “te evtel,-(0) wos CALL ENT+2 
sos. 908854 C1101 ENE TYP ;EM 
a D0gSS¢ O50°E2 cs TYP 
oud 
15g& 
i257 PINDIVIURL STATIC TEST SCOPE LOOP ROUTINE 
owt ; 
1069 ; 
1870 s3E BIT 14 1S SET BYPR” THIS ROUTINE AND JUST LOOP ON THE TEST 
157i siF BET i4 [3 NOT Sev Lice IN EACH TEST IS TIMES THEN co To THE NEXT TEST 
1E74 O0G5ED 004737 910148 Loop: JSR = PE, CKSW CHECK E 
1575 006564 932777 o4cood 172206 BIT eStt 15 95R test J Fer IS SET 
love 556572 d01402 3E0 +6 :BRANCH I git 14°15 NOT SET 
7? 008575 O13¢e46 MOV ab )*,-(68) PLAYING WITH THE STACK 
1678 906576 0000e TI ieDP ON TEST a! WI} HOUT ENTERING THIS ROUTINE 
157§ 006600 905737 co1064 Tsi PASS TEST I COUNT IS ZF 
1680 06604 001003 es BNE »PASS tount No ak KEEP COUNTING 
1561 006696 912777 000035 001064 MOV 835 Pass :SET Ue staie a FIRST TIME THROUGH 
i5s2 f56614 05237 SOI5E4 DEC 8s i-1_PRSS THIS TIME THROUGH 
18s 608629 201402 8EQ +6 ;PASS ZERO bine NEXT TEST 
108% O066e2 219646 MOY 3(6)+,-(6) SFLAYING ITH THE STACK SGAIN 
i5és O0ee24 000002 RT : :RE-ENTER TEST 
| 1086 Odebes 062716 00002 R00 #2, (6) INC. STACK FOR THE NEXT TEST 
«RED: Sage Cococe RTI sEXIT TO THE NEXT TEST 
| 1089 
| 3696 POWER FAIL SEQUENCE 
’ ow seo ; 
| 1582 096634 012727 Ocbe4+ 000024 PWRDWN: MOV #PWRUP, 24 SET UP POWER FAIL VECTOR “OR RESTART 
| ieee SteBKE SOO0O HALT HALT AND WAIT FOR POWER TO ClME BAC 
| 163s 
| 1066 THIS THE POWER UP SEQUENCE REPORT POWER HAS FAILED AND 
| 3087 tWAlT ThO SECONDS FOR THE PHONE LINES TO SETTLE 
- ; 








Qo fee 

‘2 >: 

Oo » 
8] 


UAE totor-es 


“b-b-0-€ 9000) 


Gofur-O.wmw~) 


2-0-0 «0-0 +0 +> +66 6-6 +6 + <6 2 0-+0-+0 <6 -+ <p p< 


Poet ee ee et ee ee 
“Jo 0 + <p 9 


Oowo 


ee arate 
€ 


GNU). ODIO se 
BoORSSer 


4 


nur 


furururom 
MNOOOMt 
it etst st brett 


*o 


[ted ed eed 2 
Jrorur 
vrwmm 


| ee) oe | el ele 


J 
t4 
id el ed ed eed ed ed ed Bd ed ed ed ed ed ed ee ed ee ed ed ed ed ed ed ed ey et ed aed aed ee ae 
yyy 
te itt iaet ts 


eed ed ed ee ed ee ed et ed ee 


ity) 


2 


O8-APR-"6 


006634 
001000 


000176 
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JMP 
Route iy SAVE, 


— er ee es ee 


pPOuT Ine Ter nests REGISTERS 
% sREST oS 


ae a 


bi-foio 
ae 
m 
uw 
—4 
oc 
yD 
Cc m 
Iw Dw 


n7ooow 


a we te ee ee ee 


;SET UP POWER Ae VECTOR FOR POWER D 


:SET UP THE STAC 


;REPORT THE POWER HAS FAILED 
;SET THE TWO SECOND TIMER 


s CHEEK 1 on ante USE 


$8 5 to ee BEG FRO TT) OF THE PROGRAM 4 


;SAVE REGISTER 0 
SAVE SEGISTE 
SAVE REG! 


mMinimnienin 
“2666696? 
Tle 40 -00-00-40-4 
p= a tt Nt 
miner 
20D 
oefutse 





is £2 


iy) 
Go 


0-0 9-9 + pe 


Re 


3S . 
Or-fur--IjI~IoO 


wHAL en test cRa ni ete tr bet ot bd 


FOr CueD JOU 


SINNIN YOO Ono ow 


=] 
00-40 + 0-002 o + 0 b+ b= hh + b+ O02 be + 0 0 Bo hs h0 h-hh Oh + bh eb 02 2 bs Oo b= 0 2 hb 2b hp pnp eh ee a 
£ONUeO.000 Ul £ 


0+ -20-* bo 0-28 + 0-0 + b+ & + b+ b-0 b= F-* &-0 b+ B+ 0+ 8-8 2 O00 b+ 0 2 b= #8 0-0 8 hho hh 9h oh Pe Ho 
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000092 
An? 


we 
be tele he tend 
Vee 


177770 
000069 


ae ewe + oe ee ee Cee ee 


;SUSROUTINE TO OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 
Shoe. AED ne GCORESS 


a6, As) 
2.0% 
xt) TYPSE 
TYPSB 
type, 
+] 


TYPS 


;OCTAL TO ASCII CONVERT ROUTINE 
IENTER_ ROUTINE AS FOLLOWS 
:AO0Re z ADDRESS OF NUMBER TO GE CONVERTED 


LSB OF WHERE ASCII ING 
es NUMBER OF ASCII CHAR. TO BE CONVERTED 


at$)+, "Y iole 
(S)+ 

(5): a 
42, %4 


ACNVX. %3 
0177780, %3 





DO4 


TER INATO i 
‘BRA NCH if NOT_ TERMINATOR. 
; TER ExIT, 


; ADD! ME 
G0 PROCESS NEXT M 


Tape LEAST Pas GNIF ICANT 
;SET UP ASCII 

iether ASCIT “CHAR 

;ROTATE OCTAL #8 


371 FROM ASCII CHAR COUNT 
eT = CONVERTED 


i 
b oe _ ~ - - ee ee ee ee ee ee. ee ci Fae Sh Ba a I Rs SL 





EO4 

JMAIN, MACYLL 27(732) O3-APR-76 14:21 PAGE 31 369 0043 
OZONAA.PLL 

175 ;THIS ROUCINES IS USED TO CONVERT ASCII INPUT TO OCTAL 

117% 

1378 OO7O74 912703 o0s272 NEXCHAR: MOV sSTEXBUF "<3 ;FETCH ASCII POINTER 

iss 8 7100 BAEST ce BS 

1180 O07102 105713 TST8 a3 :TEST FOR LAST CHACTER 

1 cits 014) SEQ.  EXNEX SLAST CHACTER EXIT 

ie ? a1 ELC 

1183 87119 006312 ASL 2 

iiss Qorile ubslE - £4 

i8e Sortie iseei9 000370 Bice = #370, 9%3 MASK QUT HI ORDER BITS 

118? O07122 152318 S152 (3)+ due ;LORD OCTAL VALUE 

1188 097124 900766 BR NEXCHAR+E 

1188 Sovles 000207 EXNEX: RIS? ;EXIT LAST CHARACTER PROCESSED 


7 


. 
0+ 0-= 0-0 9-6 9-0 ps 9-0 pe pe se 
0.00 OOOD Zz 
Witiitet dwt atittet = Dp: 


+ 0-+ b= + b= 0 b= bo pe 


rut 
Sas tata ett 


rururorururururururuofurrrur 


Renn 
TOPUNMITUPU TU PUTT &-- ob be 


NOE Gofur OM. 00 NI U1.£ GU. IO U1 Lone 


Os a 0 os hs 8 2 8 ee 8 0 Fh Oo be bo be oo ho ho be hh 
Pome ome ome Oa etl etlevletieuieulevieuleuics) 


trururururorurororurururoruroror 


4-4 
ins corue-02.000 


MACYLL 276732) 


Pil 


007130 

7136 
007144 
007152 


o7157 
057164 
007372 
007200 


007205 
007e2le 


007220 


007226 


70 
097276 
007304 


007306 


007313 


050045 
021440 


040114 


O42445 


O45 
051040 
ner iia 
051104 

100 
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044120 
030443 


047510 
C3746e2 


044120 
031443 


020105 
047117 
040077 


042516 
100 
047117 


040077 


042516 
100 


:TTY OUTPUT FOR DIALEX-11 


~ASCII /% THE 801 IS OFF LINE.@/ 


ASCII 
-ASCIT 
-ASCIT 
-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


/*PROGRAM TIMED OUT UNABLE TO COMPLETE CALLa/ 


/*ON11 REGISTER ADDRESS’? 3/ 


| ENT ei es SCR 
EEE oss . . nee ee ee OOOO 
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02d Pil 


1247? 007343 O4S 042526 052103 VECDN: .ASCII /“VECTOR ADDRESS?7a/ 
1248 007350 051117 O4O44O O42104 
1249 O073S6 O4eS22 O0515e3 040077 


l2s8 007384 O4C0S7 O04? MESS: .ASCII x/a"% 
1260 007367 4s 100 HEDO: ASCII /xav 


S24 007371  o4O o20040 oN2GHO ADI: ASCII 7 ERROR COUNT 2/ 
1365 07376 OS1i2z2 OS1117 O4T440 
13€— 07404 S=sil6 o20040 


le71 207414 O20040 20040 de0040 hepa: ~ASCIT / GD DATA =a 
le7e OO74e2 O43440 020104 40504 
Le73 007430 040524 Oe0040 040040 


le O0743& 020040 O2e0040 020040 hen3: ASCII 7 BD DATAa/ 
te78 =OO7444 041040 020194 40504 
le7S = 0074Se 040524 id9 


le83 007455 O40 ¢20040 020040 HeD4: ASCII / ONI2 «=v 
1284 O0746e 042040 Osos ts 020061 


p2en040 AEDS: ASCII / DNCSR a 


040 040 
4290 907500 O42040 O41516 051123 
91 4 0040 


007512 OS004§ 053517 051105 hepe: eASCIIT /X%POWER FAIL OCCURREDS/ 


007534 O42105 


0+ bo = bs 0-20 8 
ata th th tb He ob th gt 
Petewit ee tiit Wat ry 

oOo 

oOo 

lat 

tu 

oO 

4 

Ww 

© 

£ 

Oo 

© 

+ 

- 

uw 

Oo 

- 

oO 

tf 

Oo 

-— 

_— 

& 





DIONAR. PL) 
1302 007540 EVEN 


| RIN, OMSCYLL 27(732) O8-@PR-7 14:21 PAGE 34 S60 OO4e 


ee ee ee ee a ee ee 
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o20000 171232 $TAER: i) 


006726 
007012 


007012 


171160 


010142 
006742 


020000 


006728 
007012 


-007012 


006742 
01034e 


ozoo00 17146 SrAeRe: 


171134 STAERI: 8 





'ROUTINE TO REPORT ERRORS 


081113, aSR 


we 
“5, SAVEREG 
“45, CONV 








“5, CONV 


+0 


asR 
is 


PC, CKSWR 
x8, » RESTORE 





#BIT13,a5R 
+4 


1S 

“5, SAVEREG 
45; CONV 
“4S, CONV 

+0 


4S , RESTORE 
PC; CKSUR 


sBIT13,aSR 
+4 
“S 


104 


GISTERS 
CONVERT OCTAL TO ASCII 


;REPORT ERROR NUMBER 


;TEST TO HALT ON ERROR 


RESTORE REGISTERS 


3 Tet ~ 1eebe te TYPE-OUT 
Pe "set oELTE TYPE-OUT 
EGISTER 


TO ASCII 
SHAT REGISTER SHOULD CONTAIN 


;CONVERT OCTAL TO A 
; WHAT REGISTER CONT 


;REPORT MESSAGE 


iRFeck REGISTERS 


Eon TO eters TYPE-UUT 
RELETE TYPE-OUT 





G600000800 
ebb OO 
SER roles 
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> 08726 
ag7012 






171070 001032 
007012 


007012 


170752 


010142 
006742 


000006 
000904 
010074 
177777 


000176 


000176 
0102ie 








1$: 


SUSWR: 


009904 
170710 


po1000 &58: 


001000 





;SAVE REGISTERS 
;CONVERT OCTAL TO ASCII 


;CONVERT OCTAL TO ASCII 


%5,CONV ;CONVERT OCTAL TO ASCII 


;TEST TO DELETE HALT ON ERROR 
; BRANCH IF NO HALT WANTED 


;CHECK FOR <tG> 
;RESTORE REGISTERS: 


;HAROWARE SWITCH REGISTER SIZING ROUTINE SH#eeeee4 


a1, 38 here HARDWARE atte "REGISTER 


STACK 
{POINT TO SOFTWARE SWITCH REG 
RESTORE VECTORS 








;ALLOW SWREG TO BE LOADED 


MACYLL 276732) 


oO ooo°o 
— b=b—p-9- 


ONN0000000 2000 
TUTU b= 0 0 bh ee 


NOCMTCVOF LE SUOWaD OPER 


Oo 


Forororofurorororure 


it) 
£U) 
or 


SSS55505 550000006 -) op p= 
< 
mM 


forore 
POE 


St her perd wet ete perperpert at ert-arterperperpert art stertarfeoterhard sf set stashed eden web erh whet ert mfperd sod seh aod CIN00HoO 
=] =] oO oO oO 
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000176 
004000 


009007 


006726 
007012 


008742 


010132 


000025 


ooo0is 


000997 


00009 
000067 


010134 


010136 
010136 


10136 
10132 





; CHECK my 5 gy REGISTER ROUTINE. CHECKS FOR tG TO ALLOW CHANGING 


"1 dead 
#8IT11,aTKS 
69 


%5, SAVEREG 
%5, CONY 
%S, RESTORE 
+1 

TEMPST 

87 WCOUNT 
TTIN 


PC, TYST 
aTKB, TIB 
#177600, TIB 
#25, TIB 


#7 , WCOUNT 
7$ 


OUT 
#60,TIB 
#67, TIB 


#60,TI8 
TI8, TEMPST 





KO4 


;SOFTWARE SWITCH REGISTER PRESENT 


;SAVE REGISTERS 
;GET CONTENTS OF SWREG 


;RESTORE REGISTERS 
: TYPE OUT CONTENTS OF SWREG 
AND NEW= 


;G0 READ A CHARACTER 


;STRIP OFF GARBAGE 
31S IF A tu? 


;WAS IT FIRST CHARACTER 
;CHANGE SWR IF NOT FIRST ONE 
;GET OUT 


;START OVER IF NOT LEGAL CHARACTER 


;GET NITTY-GRITTY 








MACYLi 271732) 
DZDNAA.P11 


010420 
010424 


011504 


020040 
020040 
040075 
040045 


170342 


100 
036522 
020040 
047040 


-ASCII 
-ASCIT 


-ASCIT 


-ASCIT 
-ASCIT 


LOY 


SEQ ooso 
WOUNT SONLY WANT & DIGITS 


TEvest, asp ;CHANGE SWITCH REGISTER CONTENTS 
PC ;RETURN TO PROGRAM 


“4A GHZ 
/7SWR=9/ 


/ NEW=a)/ 


/%aQ/ 
SK2%9/ 





~ 


me, 
: ¢€ 
—4—4-4 
eS DONT LUN eee 
WN£GITU--O z 


OOWDDDIDWWOMOMOWMWMMMWUu 





MAaCY11 
Pil 


007072 
007024 


002244 
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002309 


0 
001062 


001226 
7367 


PHY 007220 
PNDSET O05S4e2 
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DZDNAA.P11 SYMBOL TABLE 
TS 0016 SWREG. 000176 - TKS 001012 TYPC 64S VECON 007343 
BE BB ierE TEMPST Q10132 TPB 001904 TYPD : 650 VECTOR 001024 
Té 001636 TEXBUF Q06e7e ve? 001010 TYPDAT Q06S44 WAITIN " ae 
TSE 001632 TI8 010136 TSTFLG 006200 006516 WCOUNT Q10134 
ST? 001726 TIME 001040 TIN 010140 TYPG 006530 WORK 1032 
T? 0017ee TIME 001042 TWOSEC 005040 TYPS. 006760 woah HO ASaa 
T7ER O0eOle TIMO 007223 TYEXIT O06514 TYPSA 007004 RE 10244 
ST7X 001742 TIM 006106 TYP 006424 TYPSB 007006 . = 011506 


RRORS_DETECTED: 9 
BEFAULT GLOBALS GENERATED: 0 


*0z0NA8 DZDNA SOL «DZDNAR. Pll 
RUN-TIME: 4 8 .8 SECONDS 
RUN-TIME RATIO: a ate 3 
CORE USED: 6K (11 PAGES) 


BOS 


Ca ‘y J dave’ id-des-Pe hase 


-~ 


— 


a: Well 
9977 


sp ; i dlittldaiay 


is) 
Bbiili lili BEDSEDDSSE IIIA ITN NUNHNMUUSESSES Sects 





